VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "BDetalle"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit
Private mvarbProducto As bproducto
Private mvarnCantidad As Integer
Private mvarnPrecio As Double
Private mvarnCodigo As Long
Private mvarnComision As Double
Private mvarnMonto As Double
Private mvarbEmpleado As bEmpleado
Private mvarnEstado As Integer
Friend Property Set bEmpleado(ByVal vData As bEmpleado)
    Set mvarbEmpleado = vData
End Property
Friend Property Get bEmpleado() As bEmpleado
    Set bEmpleado = mvarbEmpleado
End Property
Friend Property Let nMonto(ByVal vData As Double)
    mvarnMonto = vData
End Property
Friend Property Get nMonto() As Double
    nMonto = mvarnMonto
End Property
Friend Property Let nComision(ByVal vData As Double)
    mvarnComision = vData
End Property
Friend Property Get nComision() As Double
    nComision = mvarnComision
End Property
Friend Property Let nCodigo(ByVal vData As Long)
    mvarnCodigo = vData
End Property
Friend Property Get nCodigo() As Long
    nCodigo = mvarnCodigo
End Property
Friend Property Let nPrecio(ByVal vData As Double)
    mvarnPrecio = vData
End Property
Friend Property Get nPrecio() As Double
    nPrecio = mvarnPrecio
End Property
Friend Property Let nCantidad(ByVal vData As Integer)
    mvarnCantidad = vData
End Property
Friend Property Get nCantidad() As Integer
    nCantidad = mvarnCantidad
End Property
Friend Property Set bproducto(ByVal vData As bproducto)
    Set mvarbProducto = vData
End Property
Friend Property Get bproducto() As bproducto
    Set bproducto = mvarbProducto
End Property
Friend Property Get nEstado() As Integer
    nEstado = mvarnEstado
End Property
Friend Property Let nEstado(ByVal nEstado As Integer)
    mvarnEstado = nEstado
End Property
Private Sub Class_Initialize()
Set bproducto = New bproducto
Set bEmpleado = New bEmpleado
End Sub


